#!/usr/bin/perl

use warnings;
use strict;

open (SAMPLE, "sample.file");

foreach (<SAMPLE>) {
    if ( /^Norma.*:.*:.*, ([A-Z]{2}) [0-9]+:.*:.*/ ) {
        print "Norma lives in $1.\n";
    }
}

close SAMPLE;
